home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.Q & D DISK.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  31 lines
  1. 10  HIMEM: 8191
  2. 20 FI$ = "Q & D AD"
  3. 30  GOSUB 170
  4. 40  PRINT : PRINT " USE CTRL-S TO STOP": PRINT : PRINT " USE CTRL-S-REPEAT TO READ FAST": PRINT : PRINT " PRESS SPACE TO ZIP RIGHT THROUGH"
  5. 50  PRINT "<CTRL-D>BLOADPLAYER,A$300": REM FROM ELECTRIC DUET BY      PAUL LUTUS
  6. 70  PRINT "<CTRL-D>BLOADPRINTER,A$94E0"
  7. 90  PRINT "<CTRL-D>BLOADP."FI$",A$2000"
  8. 110  PRINT "<CTRL-D>BLOADM."FI$",A$4000"
  9. 120  HOME 
  10. 130  VTAB 9: PRINT 
  11. 140  POKE 49168,0
  12. 150  CALL 38112
  13. 160  GOTO 300
  14. 170  TEXT : HOME : INVERSE : FOR A = 1 TO 23: PRINT "                                        ";: NEXT 
  15. 180  GOSUB 250: GOSUB 240
  16. 190 A$ = " Q & D DISK # 1 ": VTAB 3: HTAB 21 - LEN(A$)/2: PRINT A$;: HOME 
  17. 200 A$ = "MUSIC BY ELECTRIC DUET FROM PAUL LUTUS": VTAB 24: GOSUB 260
  18. 210  INVERSE : GOSUB 270: NORMAL 
  19. 220  HOME : POKE 34,7: POKE 35,20: HOME : PRINT 
  20. 230  RETURN 
  21. 240  NORMAL : POKE 33,40: POKE 32,0: POKE 35,22: POKE 34,5: HOME : RETURN : REM  BIG BOX  
  22. 250  NORMAL : POKE 33,30: POKE 32,5: POKE 34,1: POKE 35,4: HOME : RETURN : REM TOP BOX
  23. 260  HTAB 21 - LEN(A$)/2: PRINT A$;: RETURN 
  24. 270 A$ = "Q&D": FOR A = 1 TO 3: VTAB 1 +A: HTAB A +1: PRINT  MID$ (A$,A,1);: NEXT 
  25. 280  FOR A = 1 TO 3: VTAB 1 +A: HTAB 40 -A: PRINT  MID$ (A$,A,1);: NEXT 
  26. 290  RETURN 
  27. 300  VTAB 24: HTAB 2
  28. 310  POKE 49168,0
  29. 320  PRINT " PLAY IT AGAIN OR QUIT? (P/Q)";: CALL  -868: GET K$: IF K$ < >"P"  AND K$ < >"Q"  THEN  PRINT K$;: HTAB 2: GOTO 320
  30. 330  IF K$ = "Q"  THEN  TEXT : HIMEM: 38400: PRINT : PRINT  CHR$(4)"RUN AD.MENU"
  31. 340  IF K$ = "P"  THEN  FOR A = 1 TO 20: PRINT : NEXT : GOTO 130